object dmteknik: Tdmteknik
  Left = 209
  Top = 113
  Width = 544
  Height = 375
  Caption = 'dmteknik'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object adoper: TADOQuery
    Connection = Connect
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from perkart')
    Left = 56
    Top = 8
  end
  object adopers: TDataSource
    DataSet = adoper
    Left = 96
    Top = 8
  end
  object perhesap: TADOStoredProc
    Connection = Connect
    ProcedureName = 'sp_perhesap;1'
    Parameters = <
      item
        Name = 'RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = Null
      end
      item
        Name = '@kartno'
        Attributes = [paNullable]
        DataType = ftString
        Size = 10
        Value = Null
      end
      item
        Name = '@tarih'
        Attributes = [paNullable]
        DataType = ftDateTime
        Value = Null
      end
      item
        Name = '@saat'
        Attributes = [paNullable]
        DataType = ftDateTime
        Value = Null
      end
      item
        Name = '@durum'
        Attributes = [paNullable]
        DataType = ftString
        Size = 1
        Value = Null
      end>
    Left = 152
    Top = 8
  end
  object Perbul: TADOQuery
    Connection = Connect
    CursorType = ctStatic
    Parameters = <
      item
        Name = '@kartno'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 50
        Value = Null
      end>
    SQL.Strings = (
      'select personelno,adi,soyadi from perkart'
      'where kartno=:@kartno')
    Left = 192
    Top = 8
  end
  object PerbulS: TDataSource
    DataSet = Perbul
    Left = 224
    Top = 8
  end
  object Perhar: TADOQuery
    Connection = Connect
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from perhar'
      '')
    Left = 320
    Top = 8
    object Perhartarih: TDateTimeField
      DisplayWidth = 10
      FieldName = 'tarih'
      ReadOnly = True
      DisplayFormat = 'ddddd'
    end
    object Perharperno: TStringField
      DisplayWidth = 6
      FieldName = 'perno'
      ReadOnly = True
      Size = 50
    end
    object Perharadi: TStringField
      DisplayWidth = 13
      FieldName = 'adi'
      ReadOnly = True
    end
    object Perharsoyadi: TStringField
      DisplayWidth = 14
      FieldName = 'soyadi'
      ReadOnly = True
    end
    object Perhargelissaati: TDateTimeField
      DisplayWidth = 10
      FieldName = 'gelissaati'
      DisplayFormat = 'tt'
      EditMask = '!90:00:00;1;_'
    end
    object Perharcikissaati: TDateTimeField
      DisplayWidth = 10
      FieldName = 'cikissaati'
      DisplayFormat = 'tt'
      EditMask = '!90:00:00;1;_'
    end
    object Perharizin: TDateTimeField
      DisplayWidth = 9
      FieldName = 'izin'
      DisplayFormat = 'tt'
      EditMask = '!90:00:00;1;_'
    end
    object Perharngelis: TDateTimeField
      DisplayWidth = 8
      FieldName = 'ngelis'
      ReadOnly = True
      DisplayFormat = 'tt'
      EditMask = '!90:00:00;1;_'
    end
    object Perharnayrilis: TDateTimeField
      DisplayWidth = 9
      FieldName = 'nayrilis'
      ReadOnly = True
      DisplayFormat = 'tt'
      EditMask = '!90:00:00;1;_'
    end
  end
  object Perhars: TDataSource
    DataSet = Perhar
    Left = 280
    Top = 8
  end
  object spizin: TADOStoredProc
    Connection = Connect
    ProcedureName = 'sp_izin;1'
    Parameters = <
      item
        Name = 'RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = Null
      end
      item
        Name = '@perno'
        Attributes = [paNullable]
        DataType = ftString
        Size = 10
        Value = Null
      end
      item
        Name = '@tarih'
        Attributes = [paNullable]
        DataType = ftDateTime
        Value = Null
      end
      item
        Name = '@saat'
        Attributes = [paNullable]
        DataType = ftDateTime
        Value = Null
      end>
    Left = 360
    Top = 8
  end
  object Connect: TADOConnection
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=leventdata;Persist Security Info=Tr' +
      'ue;User ID=sa;Initial Catalog=data26;Data Source=212.125.26.80;E' +
      'xtended Properties="Use Encryption for Data=False;Tag with colum' +
      'n collation when possible=False;Use Encryption for Data=False;Ta' +
      'g with column collation when possible=False";Use Procedure for P' +
      'repare=1;Auto Translate=True;Packet Size=4096;Workstation ID=LEV' +
      'ENT'
    ConnectionTimeout = 5
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 8
    Top = 16
  end
end
